home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
F-French
/
(c)f1.d64
/
alunissage
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
3KB
|
97 lines
110 REM
120 PRINT"[147] ALUNISSAGE"
130 FOR I=1TO2500:NEXT
140 REM
150 PRINT" ALUNISSAGE LUNAIRE SIMULE"
160 PRINT" ---------- ------- ------"
190 PRINT"VOULEZ VOUS LES INSTRUCTIONS?"
195 PRINT" (OUI OU NON)";
200 INPUTA$
220 IFA$="NON"THEN630
620 CLR
630 PRINT"[147] BONNE CHANCE"
640 FORI=1TO3000:NEXT
650 PRINT"[147]"
670 PRINT"SEC PIEDS VITESS. CARB. TRACE DISTANCE"
690 T=0:H=500:V=50:F=120
700 IFH>100THEN730
705 PRINT"[147]"
710 PRINTT;TAB(5);H;TAB(12);V;TAB(19);F;TAB(25);"I";TAB((H*3)/20+24);"*"
720 GOTO740
730 PRINTT;TAB(5);H;TAB(12);V;TAB(19);F;TAB(25);"I";TAB(H/24+19);"*"
740 INPUTB
750 IFB<0THEN910
760 IFB>30THENB=30
770 IFB>FTHENB=F
780 V1=V-B+5
790 F=F-B
800 H=H-.5*(V+V1)
810 IFH<=0THEN930
820 T=T+1
830 V=V1
840 IFF>0THEN700
850 IFB=0THEN890
860 PRINT"[147] ***** PANNE SECHE *****"
880 FOR I=1TO2500:NEXT
890 PRINTT;TAB(5);H;TAB(12);V;TAB(19);F;TAB(25);"I";TAB(H/24+19);"*"
910 B=0
920 GOTO780
930 PRINT"***** CONTACT *****"
940 FOR I=1TO2500:NEXT
960 H=H+.5*(V+V1)
970 IFB=5THEN1000
980 D=(-V+SQR(V*V+H*(10-2*B)))/(5-B)
990 GOTO1010
1000 D=H/V
1010 V1=V+(5-B)*D
1020 PRINT"TOUCHE LE SOL A";T+D;"SECONDE."
1030 PRINT"VITESSE D'ALUNISSAGE=";V1;"PIEDS/SEC"
1040 PRINTF;"UNITES DE CARBURANT DANS LES RESERVOIRS"
1050 FORI=1TO5000:NEXT
1070 IFV1<=.5THEN1100
1080 IFV1<=2THENGOSUB1420:GOTO1190
1090 GOTO1140
1100 PRINT"[147] FELICITATIONS! ALUNISSAGE PARFAIT!"
1110 FORI=1TO2500:NEXT
1120 GOSUB1530
1130 GOTO1190
1140 PRINT"[147] DESOLE, MAIS VOUS L'AVEZ ECRASE ! ! !!!"
1150 FORI=1TO2500:NEXT
1160 PRINT"[147] DES CONDOLEANCES ADEQUATES"
1170 PRINT" SERONT ENVOYEES A VOTRE FAMILLE"
1180 FORI=1TO2500:NEXT
1190 PRINT" UNE AUTRE MISSION?(OUI OU NON)";
1200 INPUTC$
1220 IF C$<>"NON"THEN620
1230 PRINT"[147] VOUS ETES PLUS SOUS MON CONTROLE"
1240 FORI=1TO2500:NEXT
1250 PRINT"[147]":END
1420 PRINT"[147] ALUNISSAGE BRUTAL"
1440 FORI=1TO2500:NEXT
1450 PRINT" A ETE TRES SECOUER"
1460 FORI=1TO2500:NEXT
1470 PRINT" MAIS TOUJOURS EN VIE....."
1480 FORI=1TO2500:NEXT
1490 RETURN
1530 PRINT"[147] QUEL EST VOTRE NOM?"
1540 INPUT" ";MM$
1550 PRINT"[147] [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
1560 PRINT" [180] SATELITTE LUNE [170]"
1570 PRINT" [180] ********* **** [170]"
1580 PRINT" [180] [170]"
1590 PRINT" [180] BREVET DE PILOTE [170]"
1600 PRINT" [180] DECERNE A [170]"
1605 PRINT" [180] [170]"
1610 PRINT" [180] [170]"
1615 PRINT" [180] ";MM$
1620 PRINT" [180] [170]"
1630 PRINT" [180] POUR ALUNISSAGE PARFAIT [170]"
1640 PRINT" [180] [170]"
1650 PRINT" [180] NO";INT(RND(1)*899+100);
1652 PRINT"[157]"INT(RND(1)*9);
1654 PRINT"-";
1660 PRINTINT(RND(1)*89+10);INT(RND(1)*9);" LUNAISON[170]"
1670 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1680 FOR I=1TO7500:NEXT
1690 RETURN